library(plotly)
library(dplyr)
                            # BPAS

#setwd("C:\\Users\\felip\\Desktop\\R\\Estudying-Plot_ly-in-R\\3d plots")

getwd()
[1] "C:/Users/User/Downloads"
data  <- data <- readxl::read_xlsx ("DADOS_BRUTOS_COVID_LONGA_PREENCHENDO(1).xlsx", sheet = 1)

data


p1 <- plot_ly(data, x = ~BPA_ALTERN_POINTS, y = ~BPA_DIVID_POINTS, z = ~BPA_CONC_POINTS,
              size = ~AGE, sizes = c(5,15), marker = list(symbol = 'circle', sizemode = 'diameter'),
             text = ~paste('ID:', ID,
                            '<br>Grupo:', GROUP,
                            '<br>Idade:', AGE,
                            '<br>Pontuação Moca:', MOCA_VALUE,
                           # '<br>Atenção Alternada:', BPA_ALTERN_POINTS,
                           # '<br>Atenção Concentrada:', BPA_DIVID_POINTS,
                           # '<br>Atenção Dividida:', BPA_CONC_POINTS,
                            '<br>Nível de educação:', EDU_LEVEL)) %>% 
       
     add_markers(color = ~MOCA_VALUE) %>% 
  layout(
    scene = list(
      xaxis = list(title = "Atenção Alternada ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2),
    
      yaxis = list(title = "Atenção Concentrada ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2),

      zaxis = list(title = "Atenção Dividida ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2)),

  paper_bgcolor = 'rgb(243, 243, 243)',
  plot_bgcolor = 'rgb(243, 243, 243)'
)
  
  




p1
Warning: `line.width` does not currently support multiple values.Warning: `line.width` does not currently support multiple values.
p2 <- plot_ly(data, x = ~BPA_ALTERN_POINTS, y = ~BPA_DIVID_POINTS, z = ~BPA_CONC_POINTS,
              size = ~AGE, sizes = c(5,15), marker = list(symbol = 'circle', sizemode = 'diameter'),
              text = ~paste('ID:', ID,
                            '<br>Grupo:', GROUP,
                            '<br>Idade:', AGE,
                            '<br>Pontuação Moca:', MOCA_VALUE,
                           # '<br>Atenção Alternada:', BPA_ALTERN_POINTS,
                           # '<br>Atenção Concentrada:', BPA_DIVID_POINTS,
                           # '<br>Atenção Dividida:', BPA_CONC_POINTS,
                            '<br>Nível de educação:', EDU_LEVEL)) %>% 
       
     add_markers(color = ~GROUP ,colors = c('#636EFA','#EF553B')) %>% 
  layout(
    scene = list(
      xaxis = list(title = "Atenção Alternada ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinecolor = "red",
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2),
    
      yaxis = list(title = "Atenção Concentrada ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinecolor = "red",
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2),

      zaxis = list(title = "Atenção Dividida ",
                   gridcolor = 'rgb(255, 255, 255)',
                   range = c(0, 120),
                   zerolinecolor = "red",
                   zerolinewidth = 1,
                   ticklen = 5,
                   gridwidth = 2)),

  paper_bgcolor = 'rgb(243, 243, 243)',
  plot_bgcolor = 'rgb(243, 243, 243)'
)
  
  




p2
Warning: `line.width` does not currently support multiple values.Warning: `line.width` does not currently support multiple values.Warning: `line.width` does not currently support multiple values.Warning: `line.width` does not currently support multiple values.
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCmBgYHtyfQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KGRwbHlyKQ0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgQlBBUw0KDQojc2V0d2QoIkM6XFxVc2Vyc1xcZmVsaXBcXERlc2t0b3BcXFJcXEVzdHVkeWluZy1QbG90X2x5LWluLVJcXDNkIHBsb3RzIikNCg0KZ2V0d2QoKQ0KDQpkYXRhICA8LSBkYXRhIDwtIHJlYWR4bDo6cmVhZF94bHN4ICgiREFET1NfQlJVVE9TX0NPVklEX0xPTkdBX1BSRUVOQ0hFTkRPKDEpLnhsc3giLCBzaGVldCA9IDEpDQoNCmRhdGENCg0KDQpwMSA8LSBwbG90X2x5KGRhdGEsIHggPSB+QlBBX0FMVEVSTl9QT0lOVFMsIHkgPSB+QlBBX0RJVklEX1BPSU5UUywgeiA9IH5CUEFfQ09OQ19QT0lOVFMsDQogICAgICAgICAgICAgIHNpemUgPSB+QUdFLCBzaXplcyA9IGMoNSwxNSksIG1hcmtlciA9IGxpc3Qoc3ltYm9sID0gJ2NpcmNsZScsIHNpemVtb2RlID0gJ2RpYW1ldGVyJyksDQogICAgICAgICAgICAgdGV4dCA9IH5wYXN0ZSgnSUQ6JywgSUQsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgJzxicj5HcnVwbzonLCBHUk9VUCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAnPGJyPklkYWRlOicsIEFHRSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAnPGJyPlBvbnR1YcOnw6NvIE1vY2E6JywgTU9DQV9WQUxVRSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICMgJzxicj5BdGVuw6fDo28gQWx0ZXJuYWRhOicsIEJQQV9BTFRFUk5fUE9JTlRTLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgIyAnPGJyPkF0ZW7Dp8OjbyBDb25jZW50cmFkYTonLCBCUEFfRElWSURfUE9JTlRTLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgIyAnPGJyPkF0ZW7Dp8OjbyBEaXZpZGlkYTonLCBCUEFfQ09OQ19QT0lOVFMsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgJzxicj5Ow612ZWwgZGUgZWR1Y2HDp8OjbzonLCBFRFVfTEVWRUwpKSAlPiUgDQogICAgICAgDQogICAgIGFkZF9tYXJrZXJzKGNvbG9yID0gfk1PQ0FfVkFMVUUpICU+JSANCiAgbGF5b3V0KA0KICAgIHNjZW5lID0gbGlzdCgNCiAgICAgIHhheGlzID0gbGlzdCh0aXRsZSA9ICJBdGVuw6fDo28gQWx0ZXJuYWRhICIsDQogICAgICAgICAgICAgICAgICAgZ3JpZGNvbG9yID0gJ3JnYigyNTUsIDI1NSwgMjU1KScsDQogICAgICAgICAgICAgICAgICAgcmFuZ2UgPSBjKDAsIDEyMCksDQogICAgICAgICAgICAgICAgICAgemVyb2xpbmV3aWR0aCA9IDEsDQogICAgICAgICAgICAgICAgICAgdGlja2xlbiA9IDUsDQogICAgICAgICAgICAgICAgICAgZ3JpZHdpZHRoID0gMiksDQogICAgDQogICAgICB5YXhpcyA9IGxpc3QodGl0bGUgPSAiQXRlbsOnw6NvIENvbmNlbnRyYWRhICIsDQogICAgICAgICAgICAgICAgICAgZ3JpZGNvbG9yID0gJ3JnYigyNTUsIDI1NSwgMjU1KScsDQogICAgICAgICAgICAgICAgICAgcmFuZ2UgPSBjKDAsIDEyMCksDQogICAgICAgICAgICAgICAgICAgemVyb2xpbmV3aWR0aCA9IDEsDQogICAgICAgICAgICAgICAgICAgdGlja2xlbiA9IDUsDQogICAgICAgICAgICAgICAgICAgZ3JpZHdpZHRoID0gMiksDQoNCiAgICAgIHpheGlzID0gbGlzdCh0aXRsZSA9ICJBdGVuw6fDo28gRGl2aWRpZGEgIiwNCiAgICAgICAgICAgICAgICAgICBncmlkY29sb3IgPSAncmdiKDI1NSwgMjU1LCAyNTUpJywNCiAgICAgICAgICAgICAgICAgICByYW5nZSA9IGMoMCwgMTIwKSwNCiAgICAgICAgICAgICAgICAgICB6ZXJvbGluZXdpZHRoID0gMSwNCiAgICAgICAgICAgICAgICAgICB0aWNrbGVuID0gNSwNCiAgICAgICAgICAgICAgICAgICBncmlkd2lkdGggPSAyKSksDQoNCiAgcGFwZXJfYmdjb2xvciA9ICdyZ2IoMjQzLCAyNDMsIDI0MyknLA0KICBwbG90X2JnY29sb3IgPSAncmdiKDI0MywgMjQzLCAyNDMpJw0KKQ0KICANCiAgDQoNCg0KDQoNCnAxDQoNCg0KDQoNCnAyIDwtIHBsb3RfbHkoZGF0YSwgeCA9IH5CUEFfQUxURVJOX1BPSU5UUywgeSA9IH5CUEFfRElWSURfUE9JTlRTLCB6ID0gfkJQQV9DT05DX1BPSU5UUywNCiAgICAgICAgICAgICAgc2l6ZSA9IH5BR0UsIHNpemVzID0gYyg1LDE1KSwgbWFya2VyID0gbGlzdChzeW1ib2wgPSAnY2lyY2xlJywgc2l6ZW1vZGUgPSAnZGlhbWV0ZXInKSwNCiAgICAgICAgICAgICAgdGV4dCA9IH5wYXN0ZSgnSUQ6JywgSUQsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgJzxicj5HcnVwbzonLCBHUk9VUCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAnPGJyPklkYWRlOicsIEFHRSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAnPGJyPlBvbnR1YcOnw6NvIE1vY2E6JywgTU9DQV9WQUxVRSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICMgJzxicj5BdGVuw6fDo28gQWx0ZXJuYWRhOicsIEJQQV9BTFRFUk5fUE9JTlRTLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgIyAnPGJyPkF0ZW7Dp8OjbyBDb25jZW50cmFkYTonLCBCUEFfRElWSURfUE9JTlRTLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgIyAnPGJyPkF0ZW7Dp8OjbyBEaXZpZGlkYTonLCBCUEFfQ09OQ19QT0lOVFMsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgJzxicj5Ow612ZWwgZGUgZWR1Y2HDp8OjbzonLCBFRFVfTEVWRUwpKSAlPiUgDQogICAgICAgDQogICAgIGFkZF9tYXJrZXJzKGNvbG9yID0gfkdST1VQICxjb2xvcnMgPSBjKCcjNjM2RUZBJywnI0VGNTUzQicpKSAlPiUgDQogIGxheW91dCgNCiAgICBzY2VuZSA9IGxpc3QoDQogICAgICB4YXhpcyA9IGxpc3QodGl0bGUgPSAiQXRlbsOnw6NvIEFsdGVybmFkYSAiLA0KICAgICAgICAgICAgICAgICAgIGdyaWRjb2xvciA9ICdyZ2IoMjU1LCAyNTUsIDI1NSknLA0KICAgICAgICAgICAgICAgICAgIHJhbmdlID0gYygwLCAxMjApLA0KICAgICAgICAgICAgICAgICAgIHplcm9saW5lY29sb3IgPSAicmVkIiwNCiAgICAgICAgICAgICAgICAgICB6ZXJvbGluZXdpZHRoID0gMSwNCiAgICAgICAgICAgICAgICAgICB0aWNrbGVuID0gNSwNCiAgICAgICAgICAgICAgICAgICBncmlkd2lkdGggPSAyKSwNCiAgICANCiAgICAgIHlheGlzID0gbGlzdCh0aXRsZSA9ICJBdGVuw6fDo28gQ29uY2VudHJhZGEgIiwNCiAgICAgICAgICAgICAgICAgICBncmlkY29sb3IgPSAncmdiKDI1NSwgMjU1LCAyNTUpJywNCiAgICAgICAgICAgICAgICAgICByYW5nZSA9IGMoMCwgMTIwKSwNCiAgICAgICAgICAgICAgICAgICB6ZXJvbGluZWNvbG9yID0gInJlZCIsDQogICAgICAgICAgICAgICAgICAgemVyb2xpbmV3aWR0aCA9IDEsDQogICAgICAgICAgICAgICAgICAgdGlja2xlbiA9IDUsDQogICAgICAgICAgICAgICAgICAgZ3JpZHdpZHRoID0gMiksDQoNCiAgICAgIHpheGlzID0gbGlzdCh0aXRsZSA9ICJBdGVuw6fDo28gRGl2aWRpZGEgIiwNCiAgICAgICAgICAgICAgICAgICBncmlkY29sb3IgPSAncmdiKDI1NSwgMjU1LCAyNTUpJywNCiAgICAgICAgICAgICAgICAgICByYW5nZSA9IGMoMCwgMTIwKSwNCiAgICAgICAgICAgICAgICAgICB6ZXJvbGluZWNvbG9yID0gInJlZCIsDQogICAgICAgICAgICAgICAgICAgemVyb2xpbmV3aWR0aCA9IDEsDQogICAgICAgICAgICAgICAgICAgdGlja2xlbiA9IDUsDQogICAgICAgICAgICAgICAgICAgZ3JpZHdpZHRoID0gMikpLA0KDQogIHBhcGVyX2JnY29sb3IgPSAncmdiKDI0MywgMjQzLCAyNDMpJywNCiAgcGxvdF9iZ2NvbG9yID0gJ3JnYigyNDMsIDI0MywgMjQzKScNCikNCiAgDQogIA0KDQoNCg0KDQpwMg0KDQoNCg0KDQoNCg0KDQpgYGANCg0KYGBge3J9DQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIEZEVHMNCg0KbGlicmFyeShwbG90bHkpIA0KbGlicmFyeShzdGF0cykgDQoNCg0KI3NldHdkKCJDOlxcVXNlcnNcXGZlbGlwXFxEZXNrdG9wXFxSXFxFc3R1ZHlpbmctUGxvdF9seS1pbi1SXFwzZCBwbG90cyIpDQoNCmRhdGEgIDwtIGRhdGEgPC0gcmVhZHhsOjpyZWFkX3hsc3ggKCJEQURPU19CUlVUT1NfQ09WSURfTE9OR0FfUFJFRU5DSEVORE8oMSkueGxzeCIsIHNoZWV0ID0gMSkNCg0KDQpjb2xuYW1lcyhkYXRhKQ0KDQpkYXRhDQoNClggPC0gc3Vic2V0KGRhdGEsIHNlbGVjdCA9IC1jKEdST1VQKSkgDQoNCg0KDQpheGlzID0gbGlzdChzaG93bGluZT1GQUxTRSwgDQogICAgICAgICAgICB6ZXJvbGluZT1GQUxTRSwgDQogICAgICAgICAgICBncmlkY29sb3I9JyNmZmZmJywgDQogICAgICAgICAgICB0aWNrbGVuPTQpDQoNCg0KcDMgPC0gZGF0YSAlPiUgIA0KICBwbG90X2x5KCkgICU+JSAgDQogIGFkZF90cmFjZSggIA0KICAgIHR5cGUgPSAnc3Bsb20nLCAgDQogICAgZGltZW5zaW9ucyA9IGxpc3QoIA0KICAgICAgbGlzdChsYWJlbCA9ICdSZWFkaW5nIFRpbWUnLHZhbHVlcz1+RkRUX1JFQURJTkdfVElNRSksICANCiAgICAgIGxpc3QobGFiZWwgPSAnQ291bnRpbmcgVGltZScsdmFsdWVzPX5GRFRfQ09VTlRJTkdfVElNRSksICANCiAgICAgIGxpc3QobGFiZWwgPSdDaG9vc2luZyBUaW1lJyx2YWx1ZXM9fkZEVF9DSE9PU0lOR19USU1FKSwgIA0KICAgICAgbGlzdChsYWJlbCA9ICdDaGFuZ2luZyBUaW1lJyx2YWx1ZXM9fkZEVF9DSEFOR0lOR19USU1FKSwgIA0KICAgICAgbGlzdChsYWJlbCA9ICdJbmliacOnw6NvJyx2YWx1ZXM9fkZEVF9JTkhJQklUSU9OKSwgIA0KICAgICAgbGlzdChsYWJlbCA9ICdGbGV4aWJpbGlkYWRlJyx2YWx1ZXM9fkZEVF9GTEVYSUJJTElUWSkpLCAgDQoNCiAgICBjb2xvciA9IH5HUk9VUCwgY29sb3JzID0gYygnIzFkMzQ1NycsJyNiNTk5ZTknKSANCiAgKSANCg0KcDMgPC0gcDMgJT4lIA0KICBsYXlvdXQoIA0KICAgIGxlZ2VuZD1saXN0KHRpdGxlPWxpc3QodGV4dD0nR3J1cG9zJykpLCANCiAgICBob3Zlcm1vZGU9J2Nsb3Nlc3QnLCANCiAgICBkcmFnbW9kZT0gJ3NlbGVjdCcsIA0KICAgIHBsb3RfYmdjb2xvcj0ncmdiYSgyNDAsMjQwLDI0MCwwLjk1KScsIA0KICAgIHhheGlzPWxpc3QoZG9tYWluPU5VTEwsIHNob3dsaW5lPUYsIHplcm9saW5lPUYsIGdyaWRjb2xvcj0nI2ZmZmYnLCB0aWNrbGVuPTQpLCANCiAgICB5YXhpcz1saXN0KGRvbWFpbj1OVUxMLCBzaG93bGluZT1GLCB6ZXJvbGluZT1GLCBncmlkY29sb3I9JyNmZmZmJywgdGlja2xlbj00KSwgDQogICAgeGF4aXMyPWF4aXMsIA0KICAgIHhheGlzMz1heGlzLCANCiAgICB4YXhpczQ9YXhpcywgDQogICAgeWF4aXMyPWF4aXMsIA0KICAgIHlheGlzMz1heGlzLCANCiAgICB5YXhpczQ9YXhpcyANCiAgKSANCg0KDQpwMw0KICANCg0KDQpgYGANCg0KDQo=